home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Docs / tutorials.gc < prev    next >
Text File  |  1999-04-21  |  1KB  |  61 lines
  1. G4C
  2.  
  3. WINBIG 189 30 279 190 'Tutorials'
  4. wintype 11110001
  5. varpath ''
  6.  
  7. xonload
  8. lvuse tutorials.gc 1
  9. lvmode SHOW                 ; change the lv mode on the fly
  10. tut = '$$lv.rec'            ; store current choice
  11. cutvar tut cut word 1 tut   ; because dir lvs have also the sizes etc
  12. file = 'guis:docs/tutorials/$tut'
  13. guiopen tutorials.gc
  14.  
  15. xonclose
  16. guiquit tutorials.gc
  17.  
  18. xonquit
  19. guiquit read.gc
  20.  
  21. xonRMB
  22. status
  23.  
  24.  
  25. XLISTVIEW 3 17 180 172 '' tut guis:docs/tutorials 0 DIR ; start off with dir lv
  26. GadID 1
  27. gadfont topaz.font 8 000
  28. cutvar tut cut word 1 tut             ; because dir lvs have also the sizes etc
  29. file = 'guis:docs/tutorials/$tut'
  30. update tutorials.gc 2 'Tutorial : $tut'
  31.  
  32. TEXT 2 1 275 15 "Choose a tutorial.." 40 BOX
  33. GadID 2
  34.  
  35.  
  36. XBUTTON 183 17 93 19 'Read it'
  37. if $file > ''
  38.    update tutorials.gc 2 'Reading $tut ..'
  39.    *FILENAME = $file
  40.    guiload guis:tools/read.gc
  41.    update tutorials.gc 2 'Tutorial : $tut'
  42. endif
  43.  
  44. XBUTTON 183 36 93 19 'Run it'
  45. if $file > ''
  46.    update tutorials.gc 2 'Running $tut ..'
  47.    guiload $file
  48.    update tutorials.gc 2 'Tutorial : $tut'
  49. endif
  50.  
  51. XBUTTON 183 151 93 19 'Guide..'
  52. run 'amigaguide guis:docs/gui4cli.guide'
  53.  
  54.  
  55. XBUTTON 183 170 93 19 'Quit'
  56. guiquit tutorials.gc
  57.  
  58.  
  59. ICON 198 131 guis:gui4cli
  60.  
  61.